図 1. 圧縮設定とコーデック固有のオプション

図 2. 埋め込まれたコーデック固有のオプション

図 3. 品質スライダの削除

注意：

本稿では、Standard Compression がこれらの新しい ImageCodec API とどのようにやり取りをするかについて説明しますが、ImageCodecRequestSettings を簡単に実装する方法として、これらの API を直接呼び出すこともできます。

リスト 1. ImageCodec.h の ImageCodec セレクタ

kImageCodecGetDITLForSizeSelect    = 0x002E
kImageCodecDITLInstallSelect       = 0x002F
kImageCodecDITLEventSelect         = 0x0030
kImageCodecDITLItemSelect          = 0x0031
kImageCodecDITLRemoveSelect        = 0x0032
kImageCodecDITLValidateInputSelect = 0x0033

リスト 2. コンポーネントディスパッチャ

ComponentComment ("Codec Range")
 ComponentRangeBegin (1)
  ComponentCall (GetCodecInfo)
     .
     .  ...Various other Codec Range 1 selectors
     .
  ComponentCall (GetDITLForSize)
  ComponentCall (DITLInstall)
  ComponentCall (DITLEvent)
  ComponentCall (DITLItem)
  ComponentCall (DITLRemove)
  ComponentCall (DITLValidateInput)
 ComponentRangeEnd (1)

ComponentResult ImageCodecGetDITLForSize(ComponentInstance ci,
                                         Handle *ditl,
                                         Point *requestedSize)

ditl - ハンドルへのポインタ。ダイアログ項目はここに返されます。

requestedSize - ダイアログに収まる、要求されたサイズ（ピクセル単位）。

エラーがない場合は noErr、サイズがサポートされていない場合は badComponentSelector を返します。

リスト 3. 'DITL' の実装例と関連リソース

#define kMyCodecDITLResID 129
#define kMyCodecPopupCNTLResID 129
#define kMyCodePopupMENUResID 129

#define TEXT_HEIGHT 16
#define INTER_CONTROL_SPACING 12
#define POPUP_CONTROL_HEIGHT 22

resource 'DITL' (kMyCodecDITLResID, "Compressor Options") {
{
 {0, 0, TEXT_HEIGHT, 100},
 CheckBox { enabled, "Checkbox" },

 {TEXT_HEIGHT + DIALOG_CONTROL_SPACING, 0,
  TEXT_HEIGHT + DIALOG_CONTROL_SPACING + POPUP_CONTROL_HEIGHT, 165},
 Control { enabled, kMyCodecPopupCNTLResID },
 };
};

resource 'CNTL' (kMyCodecPopupCNTLResID, "Compressor Popup") {
 {0, 0, 20, 165},
 0,
 visible,
 60,        /* タイトルの幅 */
 kMyCodecPopupMENUResID,
 popupMenuCDEFProc+popupFixedWidth,
 0,
 "Menu:"
};

resource 'MENU' (kMyCodePopupMENUResID, "Compressor Popup") {
 kMyCodePopupMENUResID,
 textMenuProc,
 0x7FFD,       /* フラグを有効化 */
 enabled,
 "Popup",
 { /* 配列：8 個の要素 */
  /* [1] */
  "Best", noIcon, noKey, noMark, plain,
  /* [2] */
  "-", noIcon, noKey, noMark, plain,
  /* [3] */
  "None", noIcon, noKey, noMark, plain,
  /* [4] */
  "Less", noIcon, noKey, noMark, plain,
  /* [5] */
  "Some", noIcon, noKey, noMark, plain,
  /* [6] */
  "More", noIcon, noKey, noMark, plain,
  /* [7] */
  "Many", noIcon, noKey, noMark, plain,
  /* [8] */
  "Most", noIcon, noKey, noMark, plain
 }
};

リスト 4. ImageCodecGetDITLForSize の実装

// 項目番号
//
#define kItemCheckbox 1
#define kItemPopup    2

pascal ComponentResult MyCodec_GetDITLForSize(Handle storage,
                                              Handle *ditl,
                                              Point *requestedSize)
{
 Globals *store = (Globals *)storage; 
 Handle h = NULL;
 ComponentResult err = noErr;

 switch (requestedSize->h) {
 case kSGSmallestDITLSize:
   GetComponentResource((Component)(store->self), FOUR_CHAR_CODE('DITL'),
                                                  kMyCodecDITLResID, &h);
   if (NULL != h) *ditl = h;
   else err = resNotFound;
   break;
 default:
   err = badComponentSelector;
   break;
 }

 return err;
}

ComponentResult ImageCodecDITLInstall(ComponentInstance ci,
                                      DialogRef d,
                                      short itemOffset)

d - 圧縮設定ダイアログボックスを示すダイアログ参照。コンポーネントはこの値を使用して、ダイアログボックスの一部を管理します。

itemOffset - イメージコーデックの最初の項目へのオフセット。

エラーが発生しなかった場合は、noErr を返します。

リスト 5. ImageCodecDITLInstall の実装

pascal ComponentResult MyCodec_DITLInstall(Handle storage,
                                           DialogRef d, 
                                           short itemOffset)
{
 ControlRef cRef;


 unsigned long checkboxValue = (**storage).checkboxPreference;
 unsigned long popupValue = (**storage).popupPreference;

 GetDialogItemAsControl(d, kItemCheckBox + itemOffset, &cRef);
 SetControl32BitValue(cRef, checkboxValue);
 
 GetDialogItemAsControl(d, kItemPopup + itemOffset, &cRef);
 SetControl32BitValue(cRef, popupValue);

 return noErr;
}

ComponentResult ImageCodecDITLEvent(ComponentInstance ci,
                                    DialogRef d,
                                    short itemOffset,
                                    const EventRecord *theEvent,
                                    short *itemHit,
                                    Boolean *handled)

d - 圧縮設定ダイアログボックスを示すダイアログ参照。

itemOffset - ダイアログボックスにおけるイメージコーデックの最初の項目へのオフセット。

theEvent - EventRecord 構造体へのポインタ。この構造体には、イベントの性質を示す情報が含まれています。

itemHit - コンポーネントがイベントを処理する場合に項目番号を受け取るフィールドへのポインタ。返される番号は絶対番号であって、相対番号ではないため、itemOffset パラメータによってオフセットする必要があります。

handled - ブール値へのポインタ。イベントを処理する場合は、このブール値を true に設定します。イベントを処理しない場合は、false に設定します。

エラーが発生しなかった場合は、noErr を返します。

リスト 6. ImageCodecDITLEvent の実装

pascal ComponentResult MyCodec_DITLEvent(Handle storage, 
                                         DialogRef d, 
                                         short itemOffset,
                                         const EventRecord *theEvent,
                                         short *itemHit,
                                         Boolean *handled)
{
 *handled = false;
 return noErr;
}

ComponentResult ImageCodecDITLItem(ComponentInstance ci,
                                   DialogRef d,
                                   short itemOffset,
                                   short itemNum)

d - 設定ダイアログボックスを示すダイアログ参照。

itemOffset - ダイアログボックスにおけるパネルの最初の項目へのオフセット。

itemNum - ユーザが選択したダイアログ項目の項目番号。

エラーが発生しなかった場合は、noErr を返します。

リスト 7. ImageCodecDITLItem の実装

pascal ComponentResult MyCodec_DITLItem(Handle storage,
                                        DialogRef d, 
                                        short itemOffset, 
                                        short itemNum)
{
 ControlRef cRef;

 switch (itemNum - itemOffset) {
 case kItemCheckbox:
   GetDialogItemAsControl(d, itemOffset + kItemCheckbox, &cRef);
   SetControl32BitValue(cRef, !GetControl32BitValue(cRef));
   break;
 case kItemPopup:
   break;
 }

 return noErr;
}

ComponentResult ImageCodecDITLRemove(ComponentInstance ci,
                                     DialogRef d,
                                     short itemOffset)

d - 設定ダイアログボックスを示すダイアログポインタ。

itemOffset - ダイアログボックスの最初の項目へのオフセット。

エラーが発生しなかった場合は、noErr を返します。

リスト 8. ImageCodecDITLRemove の実装

pascal ComponentResult MyCodec_DITLRemove(Handle storage,
                                          DialogRef d,
                                          short itemOffset)
{
 ControlRef cRef;
 unsigned long checkboxValue;
 unsigned long popupValue;

 GetDialogItemAsControl(d, kItemCheckbox + itemOffset, &cRef);
 checkboxValue = GetControl32BitValue(cRef);

 GetDialogItemAsControl(d, kItemPopup + itemOffset, &cRef);
 popupValue = GetControl32BitValue(cRef);

 (**storage).checkboxPreference = checkboxValue;
 (**storage).popupPreference = popupValue;

 return noErr;
}

ComponentResult ImageCodecDITLValidateInput(ComponentInstance ci,
                                            Boolean *ok)

ok - ブール値へのポインタ。設定が OK であれば、この値を true に設定します。OK でない場合は、false に設定します。

エラーが発生しなかった場合は、noErr を返します。

リスト 9. ImageCodecDITLValidateInput の実装

pascal ComponentResult MyCodec_DITLValidateInput(Handle storage,
                                                 Boolean *ok)
{
 if (ok)
   *ok = true;
 return noErr;
}

リスト 10. 品質スライダコントロールの消去

#define kCodecCompressionNoQuality 0x00000001

type 'ccop' {
 longint;
};

resource 'thnr' (kMyCodecThingResID) {
 {
  'cdci', 1, 0,
  'cdci', kMyCodeccdciResID, 0,

  'ccop', 1, 0,
  'ccop', kMyCodecThingResID, 0,
 }
};

resource 'ccop' (kMyCodecThingResID) {
 kCodecCompressionNoQuality;
};